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MODULE OPCSOPCOMRPLY 


Wn 


SOE BEEP 
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PARES ESLSSICI IIIT TTT TET E PTET TTT rrr rire crc rii iii i iti titi itiiiiiiiiiie 


'e@ 
ie sett hy: (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. 


OO 


is TRANSFERRED. 

ie THE A ory pe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


: » ALL RIGHTS RESERVED. 

1 ie ws fe Seck I$ A gt te UNDER A LICENSE AND MAY BE USED AND COPIED 
1 ie Y IN ACCORDANCE WITH THE yenat OF ents” LIC Soe E_ AND WITH THE 
1 it INCLUSION OF THE ABOVE Spd NOTICE. THIS sof TWA ANY OTHER 
1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE. AVAILABLE TO ANY 
; ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
1 
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Steven T. Jeffreys 
i Creation date: 
March 10, 1981 
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' 
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' 
' 
' 
' 
' 
' 
; Author: 
' 
4 
' 
‘ 
‘ 
‘ 
4 
' 
' 
' 
' 
' 
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NAME WN O OONOAUE INDO 00 


5 } 
; ' Revision history: 
5 v03-003 ag CW Hobbs 16-Sep-1983 
3 Use VM jacket routines. 

05 v03-002 CWwH3002 Cw Hobbs _ 30-Jul-1983 
5 Various and sundry things to make OPCOM distributed 


00 '® 
i] 
+ ELECT NO TELE TE ODT NOTE TERE 
009 lo 
! FACILITY: 
003 
003 OPCOM 
003 ! 
+44 ! ABSTRACT: 
0036 This module contains the specialized logic to service 
B08 @ particular type of request sent by a user to OPCOM. 
905 i Environment: 
004 VAX/VMS operating system. 
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16-Sep-1984 01:35: AX-11 Bliss-32 V4.0-74 
13-88-1382 93:33:86 OPCOM. SAC TOPCOMMPL Y 203551 
; across the cluster. 
i y03-001 $1)49918 Steven T. Jeffreys, 13-Oct-1982 
: Honor cept tes © @ request even the repl = does not 
; have OPER privilege, as long as the reply originated from 
. an operator terminal attached to a process with the same 
; UIC as the request. 
i v02-004 $1J0163 Steven T. Jeffreys, 08-Feb-1982 
: Make references to Library routines use general addressing mode. 
i y02-003 $1J0078 Steven T. Jeffreys, 01-Aug-1981 
' Added support for INITIALIZE and BLANK replies to the 
mag. tape ACP's requests. 
i y02-002 $1J0043 Steven T. Jeffreys. 23-May-1981 
‘ Changed code to use new RQOSTCMPLTE, RQSTABORT and RQSTPEND 
message formats. Note corresponding change to OPCMSG.MSG. 
= 
BEGIN ' Start of OPCOMRPLY 
LIBRARY ‘SYSSLIBRARY:L1IB.L32'; 
LIBRARY ‘*LIBS:OPCOMLIB'; 
FORWARD ROUTINE 
REPLY_HANDLER _: NOVALUE, 
REPLY_CLM_HANDLER : NOVALUE; 
BUILTIN 
INSQUE, ' Insert entry onto a queue 
REMQUE; ! Remove entry from a queue 


EXTERNAL ROUTINE 


CHECK_REQUEST !' Common sanity checks 
CLUSMSG_CONV_CLM RQCB, ' Convert cluster message to RQCB 
CLUSMSG_ROQCB_SEND, ' Send RQCB to remote nodes 
DEALLOCATE _ROCB : NOVALUE, ! Dispose of an RQCB : 
DUMP_LOG FILE, ' Format the message into the log file 
F IND- OPERATOR ! Find a given operator 
FORMAT _MESSAGE, ! Format a given message 
LOG_MESSAGE, ! Write a message to a logfile 
NOTIFY_OPERATOR ! Notify a single operator 
NOTIFY-LISTED_OPERATORS, i Notify a list of operators 
SEND_REPLY ! Send a reply to a request 
VALIB_OPERATOR; ! Check operator device 

EXTERNAL LITERAL 
MIN_SCOPE, ' Minimum scope value 


MAX~ SCOPE; 


Maximum scope value 


11 
ORC SORCORRPLY 1B-Sen-1964 01:35:42 YAKedT BLige=82 v4. 09742 | 


Implict output: 


19 9 GLOBAL ROUTINE REPLY_HANDLER (BUFFER_DESC) : NOVALUE = 
18 : t Fenational description: 
14 1 
1g } This routine is the handler for all REPLY messages received by OPCOM. 
18 Input: 
DUFFERADESC + describes the buifer contatning the message. 
Implicit Input: 
None. 
Output: 
None. 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 

Routine value: 
None. 


lt te ed et et ee i i i tt tt tt tt te) te tt tt tt 


! Start of REPLY_HANDLER 
BUF FER_DESC : Sref_bblock; 


MESSAGE_VECTOR : VECTOR C5,LONG], Message info 
RQST e ock, 
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5 ' 
51 : $ref_bblock ' Request RQCB 
26 ROCB : $ref_bblock, ! Work RQCB 
5 OPER_RQCB : $ref_bblock, : apergter RQCB 
54 MCB : Sref_bblock, ' MCB data structure 
55 ocD : $ref_bblock, ! OCD data structure 
3$ MSG : Sref_bblock, ' 
5 MESSAGE : LONG, ' Holds message code 
8 RQST_COUNT : LONG, ! # of outstanding requests 
5 FOUND : LONG, ! Boolean 
$9 STATUS : LONG; 
66 : 
o7 : Check request size 
65 iF ~-BUFFER_DESC CDSC$W_LENGTH] LSS (OPCSK_COMHDRSIZ + OPCSK_REPLY_MIN_SIZE) 


P 
age ; 
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N 
RETURN; 
Do some common sanity checks. 
if NOT CHECK REQUEST (.BUFFER_DESC, RQCB) | 
RETURN; 

! Make sure this is a valid operator. If not, ignore the request. | 
if NOT VALID_OPERATOR (.BUFFER_DESC, .RQCB) 

| 


BEGIN 
DEALLOCATE_RQCB (.RQCB); 
RETURN; 


oo0000 
ws 


Create a descriptor for the reply text, if any. F 
MSG is pointer to the beginning of the ASCIC text string. 
Note that the count is a word size. 


MSG = .BUFFER_DESC (DSC$ 
MSG = .B FFER DESC COSC$ 
IF .MSG C0,0,76,.0] GTR 0 


Set 


oo 
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A_POINTER] + OPCSK_ COMHDRSIZ; 
A ER] + 


12 
“POINT (OPCSR_COMHDRSIZ + OPCSK_HDR_SIZE + .$bblock [MSG COPC$T_OPRENABLE_OPR] 


J 


BEGIN 
RQCB CRQCB_L TEXT LEN) = .MSG 


. C : 
IF NOT (STATOS = OPCSGET_VM (RQ L_TEXT_LEN], RQCB CROCB_L_TEXT_PTRI)) 


-~ 


$signal atop (. STATUS); 
mi (.ROCB RQCB_L_TEXT_LENJ, MSG (2,0,0,0], .RQCB CROCB_L_TEXT_PTRI); 
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Perform some more checks. These include: 
- The operator must be known to OPCOM 
- The reply must be valid 


Oe ee ee ee ee 


F NOT FIND_OPERATOR (.RQCB, OPER_RQCB) 
OR NOT (SELECTONE .ROCB CROCB_L_RO_OPTIONS) OF 


E 
OPC$_ROSTPEND) : TRUE; 
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0 ' Valid reply status 
08 peee~nen conte : TRUE; ! Valid reply status 
10 09 OPC$_RQSTABORT : TRUE; ' Valid reply status 
11 10 OPC$_INITAPE) : TRUE; ! Valid reaty status ; 
\¢ $i) OPC$_BLANKTAPE] : .$bblock CRQCB CRQCB_L_PRIVMASK1], PRVSV_VOLPRO); ' Valid if user has 
1 1g OTHERWISE) : FALSE; ! ALL Others are invalid 
14 1 TES) 
15 14 
1g 15 BEGIN 
1 1g MESSAGE _VECTOR £0} = OPCS$_ILLRQST; ' Set message code 
8 : MESSAGE_VECTOR (1) = 0; ! Set message NARGS 
0 19 2 ELSE 
1 31 BEGIN | 
§ 2 ! Search through the requests queued to this OCD for the | 
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ied request. This implies that an operator may 
nfluence requests of the same scope as the operator. 
FALSE; ' Assume not found 
VECTOR fo 2 QPCS_NOSUCHRQST; i Set message code 
VECTOR = Q; ! Set nessage NARGS 
PER_RQCB CRQCB_L_OCD); ! Get OCD address 
= .O0CD COCD“W~ROSTCOUNT); i Get # of requests 
OCD COCD_L_RQSTFCINKI; ! Get first request address 
0 Mit AND sas! COUNT GTR 0) DO 
RQCB CRQCB_L_RQSTIDJ] NEQ .RQST CROCB_L_RQSTNUM) 
BEGIN 
RQST_COUNT = ,RQST_COUNT = 1; ' Decrement request count 
. a = .RQST CROCBIL_FLINK); ! Get address of next request RQCB 


BEGIN 


We've found the request. If the operator has the privilege 
to reply to this request, then format the reply text (if any) 
and send the reply to the requestor. 


The memes 


Oo 
v 


FOUND = TRUE; ! Note that we found it 
IF (.$bblock CROCB CRQCB_L_PRIVMASK1)], PRV$V_OPER]) 
= ((,.RQCB CRQCB_B SCOPET EQL OPC$K_GROUP) AND (.$bblock CRQCB CRQCB_L_PRIVMASK1], PRV$V_GROUP)) 


senate CROcB_C_OIC) EQ. .RQST CROCB_L_UICI) 


THE 
GIN 

MESSAGE_VECTOR [0] = .RQCB CRQCB_L_RQ_OPTIONS): 
MESSAGE-VECTOR [1] = RQCB CROCB_C_TEXT_LEN); 
MESSAGE VECTOR : = 0; 
MESSAGE VECTOR = .ROCB CROCB_L_ROSTID); 
MESSAGE-VECTOR C4] = RQCB CROCB C OPER_LEN; 
FORMAT_MESSAGE (.RQCB, MESSAGE_VECTOR); 


Attempt to notify the person 


MCB = .RQST CRQCB_L_MCB); ! Save MCB address 
ROST CROCB_L_MCB)~=~.RQCB CRQCB_L_MCB); ! Set new MCB 
if wot SEND_REPLY (.RQST) ! Send the reply 


BEGIN 


' The requestor could not be notified. This 
! means that the requestor has implicitly canceled 
the request. 
MESSAGE_VECTOR (CO 
MESSAGE _VECTOR (1 ! Set_message Nargs 
MESSAGE-VECTOR [2] = .RQCB CROCB_L_RQSTID); 
EOARAT RE SSAGE (.RQCB, MESSAGE_VECTOR); 

' 


Able to reply, send it to everyone else in the cluster 
ELSE 


= OPC$_RQSTCAN; ; Set message code 


ee Se ee eee Ty SR pe Paes | 
opesgrgomee IEeec494s QURESG YOGA SLNESEBatbO2,, Pam 8 


CLUSMSG_ROCB_SEND (<1, CLM__REPLY, .ROQCB); ! Send it everywhere 
RQST trace C MCB = .MCB; a ' Restore the (8 


] 
| 
ELSE | 
| 
| 
| 
| 


BEGIN 


! The operator did not have the privi 
! Set up the message so that he will 
illegal request. 


MESSAGE_VECTOR fo} = OPCS, ILLRAST; ' Set message code 
tama na 1] = 0; ! Set message NARGS 
END; 


lege to reply to this request. 
be notified that his was an 


! 
} Finish processing. Decide what to do based on the message code. 
SELECTONE -MESSAGE_VECTOR (0) OF 


OPC$_ILLROST 
OPC$"NOSUCHROST] —: BEGIN 


8S Mewn— 
OOCCOOCCCOOCOOOCOOCO 


8 | 
0 | 
0 
03 Inform the operator that the reply failed. 
03 FORMAT_MESSAGE (.RQCB, MESSAGE_VECTOR); 
05 NOTIFY-OPERATOR (.RQCB); 
B38 END; 
: ba COPC$_ROSTPEND] : BEGIN 
1 031 i Log the message. Set the intrest mask so that 
: $3 } the message is logged properly. 
1 3} RQCB CROCB_L_ATTNMASK1] = .ROST [ROCB_L_ATTNMASK1); 
1 031 RQCB CRQCB_L _ATTNMASK2] = .ROST CROCB_L_ATTNMASK2); 
1 031 LOG_MESSAGE T.RQCB); 
: ba) END; | 
031 COPC$_ROSTCAN | 
OPC$~ROSTABORT, | 
OPCS$_INITAPE 
OPC$~BLANK TAPE 
OPCS_ROSTCMPLTE] : BEGIN 
i The request must be removed from the OCD's List, and the operators must be 


} operators will be notified. 


RQCB [ROCB_L_ATTNMASK1] = .ROST [ROCB_L_ATINMASK1]; 
ROCB CROCB : ATINMASK2 = .ROST CROCB"L"ATTNMASK2); 
= ,ROST CROCB_L §c0]: 
OCD COCD_W_RQSTCOONT) = .OCD COCD_W_RQSTCOUNT] - 1; 
DEALLOCATE-RQCB (.ROST); 


i Log and notify 


} 
' notified. Set the rep\ jer s interest mask so that the interested | 
| 
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H 7 
; $ 3 Log MESSAGE  ( -ROCB): 
; 9 NOTIFY. LISTED_OPERATORS (.RQCB); 
3 ¢ <3 TES; 
; : ; DEALLOCATE_RQCB (.RQCB); 
: 6 45 2 RETURN; 
; 6 END; ! End of REPLY_HANDLER 
.TITLE OPCSOPCOMRPLY 
SIDENT \ vOe00 4-0 bot 
.EXTRN CHECK REQUEST CLUSMSG_CONV_CLM_RQCB 
-EXTRN CLUSMSG_RQCB_SEND 
-EXTRN DEALLOC OeATE “nae o., 
~EXTRN DUMP_LOG ND_OPERATOR 
EXTRN FOR “RESSAGE, ft; “MESSAGE 
-EXTRN NOTIFY-OPERATOR 
EXTRN NOTIFY-LISTED_OPERATORS 
~EXTRN SEND REPLY, VALID_OPERATOR 
~EXTRN N_SCOPE, MAX_SCOPE 
~EXTRN Opesaes _VA, LIB$sTOP 
.PSECT $CODE$,NOWRT,2 
O1FC 00000 .ENTRY REPLY_HANDLER Saye R2,R3.R4,R5,R6,R7,RB 
58 00006 CF 9 000¢ MOV FORMAT MESSAGE, 
3E 1c C2 0000 SUBL2 #28, S 
é 04 aC DO OOOOA MOVL BUFFER p§S°- R3 
0046 «BF 63 B1 000 CMPW (R33 
01 1€ 0001 BGEQU 
04 9001 
4008 8F BB 00016 1S: PUSHR #*M<R 
00006 CF 02 FB O01, CALLS 2, ete “REQUEST 
01 E O1F BLBS = RO. 2$ 
4 000 2 ET 
56 6E DO 00023 28: MOVL  RQCB, R6 
0048 8F BB 99 6 PUSHR #*M<R3,R6> 
00006 CF 92 FB OOO02A CALLS #2, VALID_OPERATOR 
0 EB 0002F BLBS =s_«aRO. 38 
36 D 99 PUSHL 
0107 31 BRW : $ 
52 06 a3 26 C1 00037 3$: ADDL3 #38, 4(R3), MSG 
0 1A A2 OA 00 MOVZBL 26 (fs6) rb 
53 0 04 A ci 4 ADDL (R3), RO, R3 
2 41 OA 004 V 65(R35, MSG 
$ 2 0049 TSTw (MSG) 
9048 BEQL 3$ 
53 0084 (6 9E 0004D MOVAB 2(R6), R3 
6 62 3C 000 : VZ7WL (MSG), (R3) 
0088 F 000 PUSHAB 136(R6) 
00006 CF Pe 0 3 ches ; 10bCS6 T_VM 
6 EB 00060 §  Sfkruss es 


0109 | 


0165 


0171 


0177 


0180 
0189 
0190 
0193 
0194 


<o 
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16-Sep-1984 01:35: AX-11 Bliss-32 V4.0-74 Pa | 
13-808- 1382 93:33 286 OPCOM. SRCJOPCOMRPL Y .B3 31 - Pd 
0 DD 0006 PUSHL STATUS : 0196) 
000000006 00 84 FB é CALLS #1, LIBSSTOP : | 
0088 06 02 A2 63 38 $0 4$ MOVC3 (R3), 2(MSG), @136(R6) : 0197 | 
06 AE OF 4 5$ PUSHAB OPER_ROCB : 0204 
DD 00077 PUSHL : | 
00006 CF FB 00079 CALLS #2, FIND_OPERATOR : | 
58 Ab BO Soot at ORB tReS. RO ¢ 9205 | 
00058021 &F g D4 00 5 CMPL RO, #360481 + 0207 | 
1 c BEQL «=s 8S ; 
00058029 8F 0 D4 : é CPL RO, #360489 > 0208 
0005801C &F 6 D1 00097 CMPL RO, #360476 + 0209 
‘ 13 000 BEQL «= 8$ : 
000581D3 = &F 30 p4 0A CPL Rd. #360915 t 0210 
000S81E3 8F 36 D1 000A9 CMPL = RO,: #3609311 + 0211 
05 if 00B0 BNEQ © 6$ ; 
OE 32. A 05 € 0082 BBS #5 50(R6) 8$ : 
08 AE 0005807C BF DO 008 4% MOVL § #360572, MESSAGE_VECTOR + 0216 
OC AE ps OBF CLRL MESSAGE _VECTOR+4 + 0217 
0088 1 o0Ce 7$ BRW 173 > 0204 
53 D4 000C5 BS CLRL FOUND + 0226 
08 AE 00058044 8F DO 000C7 MOVL #360516, MESSAGE_VECTOR : 0227 
OC AE D4 O00CF CLRL MESSAGE VECTOR+4 > 0228 
50 4 AE DO 000D2 MOVL PER ROCB, RO + 0229 
54 4 AO DO 00006 MOVL (RO), OCD ; 
55 A Aa 3C SO0DA MOVZwi 58(OCDS, RQST_COUNT : 0230 
52 C A& DO 000D MOVL 60(OCD). RQST + 0231 
DD 53 £8 OO0E2 9S: BLBS FOUND, ?$ : 0232 
55 D3 O0E TSTL  RQST_COUNT : 
09 15 000€7 BLEG : 
70 = A2 64 Ab D1 000E9 CMPL  100(R6), 112(RQST) + 0233 
07 13 OOEE BEQL 118 ; 
5 07 O00F DECL § RQST_COUNT > 0236 
52 62 00 BoOrg MOVL (RQST), RQST 5 Oeae 
EB 11 OO0FS 10$: BRB 9$ + 0233 
53 01 D0 OOF? 11$:  MOVL #1, FOUND + 0246 
11 32. Ab 02 f OOFA BBS #2. 50(R6), 13% + 0247 
02 53 AG 91 OOOFF CMPB —s-« 3(RO), 2 : 0248 
04 1 0103 BNEQ 12s : 
07 31 a6 EB 00105 BLBS  49(R6), 13$ : 
68 A2 68 AG D1 00109 128: CPL 104(R65, 104(RQST) ; 0249 | 
SF if 1 BNEG 16$ : 
08 AE 58 A p oui 13$: MOVL 88 (RG) MESSAGE_VECTOR : 0259 
OC AE 0084 C6 E 11 MOV 132(R65, MESSAGE _VECTOR*4 : 025 
10 AE D4 00118 CLRL MESSAGE. VECTOR+ : 0254 
16 AE é A6 b0 11 MOVL 100(R6)> MESSAGE_VECTOR+12 > 0255 
18 AE C Ab 9E 001 VAB_ 124(R6). MESSAGE -VECTOR+16 : 0256 
AE 9F 001 PUSHAB MESSAGE. VECTOR : 0257 
56 DD 00128 PUSHL R F 
68 02 FB 001 CALLS #2, FORMAT_MESSAGE : 
6C A2 dO 001 MOVL 3s §cRast) > 0261 
6C A2 6C A6 DO 001 MOVL  108(R6), 108(RQST) : O6¢ 
52 DD 00139 PUSHL  RQST : 026 
00006 CF 07 FB 00138 CALLS #1, SEND_REPLY : 
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Je j= Page 
“11 Bliss-32 V4.0-7 9 
IECREHOMs :8BS3 WPCDA. ueNaSanbC 28, 
he ? § 12 abUP 485, MESSAGE _VECTOR : 
08 AE 00058084 F 6 138 mOVL ce AGE. 
f AS 56 1 MOVL waa y VaEScace _VECTOR+8 
sa eae 88 A BF 1 : PUSHAB MESSAGE. VECTOR ; 
2 a ee : 
e C + 158 BRB 1 ‘ 
3 DD 0015D 14%: — PUSHL 
2 ! 
i 3 § C ASG of ce. SEND ; 
meee es a : 
oe ge DG Bier 16$: BOVE } 50572, MESSAGE _VECTOR ; 
sei at sag * AE be $195 oe MESSAGE | VECTOR+4~ ; 
rr65 20 Bio 178: BOVE MESSAGE VECTOR, R3 ; 
iF - a D1 b181 CMPL R3, #360516 : 
waeamait a ae b018e PePc RS #360572 : 
arnet af GBB : 
08 AE OF 80198 18$: PUSHAB MESSAGE _VECTOR ; 
68 88 PB $0198 CALLS We, FORMAT_MESSAGE 
c0006 gf 8 B88 EMITS. worse onenaron | 
SE BRIE aos, BBS sce : 
ween 2, OE 12 001AB BNEQ go§ ; 
AS 7D OO1AD MOva 2(RQST), 92(R6) ; 
sodil see * 56 DD 001B2 PUSHL 6 ; 
00006 CF or FB 00184 CALLS H, LOG_MESSAGE ; 
BN AUIES aos: BAB, 8 aseour , 
memes OB BB pases 7 
soateaie be ig 13 0018 Beal 5 #360580 : 
vesnannan. Soh 73 93 dole Beat S78 
53 Dl § 1D6 CMPL R3, #360915 ; 
canal a G3 13 Sorbo Gratis Fe 3 
000581E3  8F 33 o4 0010 CPL a : 
8 B1E8 21$: mova (ROST), 92(R6) ; 
= § m | OF OO1E REMQUE (ROQST), ROQST ; 
3¢ 4 09 O1F0 VL 36(RaST), ocd ; 
A AG B7 001F4 DECW : 
gf PR ESB nensocare.noce : 
eS ¢ DD OO1F PUSHL Rat ; 
00006 CF 6§ FB CALLS “ LOG_MESSAGE ; 
6f Pe CALLS #1, NOTIFY_LISTED_OPERATORS 3 
coon ce RRS ES cca mace : 
00006 CF 1 FB OF $: CAL ‘ g 


<oO 
Ra 


ope SPE ONRPLY HecBéoct9pe 01:35:42 yaRedt BLigs=32 y4.0-742 | rage 10 


; Routine Size: 532 bytes, Routine Base: $CODE$ + 0000 


12 

18-5¢ -1984 01:35: AX-11 Bliss-32 V4.0°74 Pa 

1 30p71 38 93:33:86 OPCOM.SRC SPCOMRPLY.039;1 ms 3 
GLOBAL ROUTINE REPLY_CLM_HANDLER (BUFFER_DESC : Sref_bblock, CLM : S$ref_bblock, LEN) : NOVALUE = 


tee 
! Functional description: 


53 
RA 


deel 


ed 


This routine is the handler for all REPLY messages received by OPCOM from remote nodes. 


Input: 
BUFFER_DESC = pointer to oonsene from remote node, including SSNDOPR header 
CLM - ointer to CLMRQCB structure 
LEN = ength of LEN 
Implicit Input: 
None. 
Output: 
None. 


Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 


0 
0 
0 
0 
8 None. 
Routine value: 
0 None. 
! Start of REPLY_CLM_HANDLER 
0 LOCAL 
0 RQST : Sref_bblock, ' Request RQCB 
8 : S$ref_bblock, ! Work RQCB 
3 OPER_ROQCB : $ref_bblock, ! Operator RQCB 
0389 : $ref_bblock, ! MCB data structure 
83 ocd $ref_bblock, ' OCD data structure 
MSG : Sref_bblock, : 
03 MESSAGE : LONG, ! Holds message code 
03 RQST_COUNT : LONG, ! # of outstanding requests 
33 STATOS : LONG; 
q 
03 i Check the version number of the message. If the message is from any other version, 


iF .CLM CCLM_B_DS_VERSION] NEQ CLMRQCB_K_DS_VERSION 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID "CLM__x mismatch’); 


REPDPIPIPIMPINPDPAPIMINYINININIPIPIPIMIPIAIY a nk tk ot ot ot 2 
—-_ = @ 
m 
a 
_ 
2 
- 


SRISSsssstaees 


simply ignore it. | 
| 


| H 12 
OPCSOPCOMRPLY 16-Sep-1984 01:35:4 AX-11 Bliss-32 V4.0-74 Page 12 OPC 
vert, 12-80-1382 93:33 :8 LOPCOM. SRC JOPCOMRPLY.B3 31 . (35 
Allocate an RQCB and convert the message RQCB into the new RQCB 
if NOT CLUSMSG_CONV_CLM_ROQCB (.CLM, RQCB) 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 

Perform some more checks. These include: 

- The operator must be known to OPCOM 

= The reply must be valid 
F NOT FIND_OPERATOR (.RQCB, OPER_RQCB) 


HEN 
BEGIN 


SSBLERR 


Pt ot ot ot ot ot 
SeI8 


ae ee ee ee eee eee 
—OODNOUE WN" OOODNOUSWN OO 


eh ee ee ee a 


DESC, ZASCID ‘reply operator not found'); 


only influence requests of the same scope as the operator. 
OCD = .OPER_ROQCB CROCB_L ocd); ! Get OCD address 
RQST = .OCD COCD_L_RQSTFCINKI; 
WHILE Rast NEG OCB COCD_L_ROSTFLINK] DO 
IF -RQCB CRQCB_L_RQSTID] NEQ .RQST CROCB_L_RQSTNUM] 
ao = .RQST CROCB_L_FLINK] ! Get address of next request RQCB 
BEGIN 


i we've found the request. If the operator has the privilege 


! Get first request address 


FRLLLERLELERRRRRRLRRKRRR LEE 


WA AIWROROPORoPORoPOfonofy 3 2 


wr 
WO OONOAUE WN“ OOONOUS wn — 


w 


WW 


tin ! to reply to this request, then format the reply text (if any) 
441 3 : 
44 4 MCB = .RQST CROCB_L_MCBI; ' Save MCB address 
44 4 ROST CROCB_L_MCBJ~=".RQCB CROCB_L_MCB]; ! Set new MCB 
444 ? SEND_REPLY (.RQST); ! Send the reply 

4 


ROST~CROCB_L_MCBJ = .MCB; ' Restore the MCB 
EXITLOOP; 


‘ END; 
Request not found, oh well 


and send the reply to the requestor. 

| 
IF .RQST EQL OCD COCD_L_RQSTFLINK] 
THEN 


DUMP_LOG FILE (.BUFFER_DESC, ZASCID ‘reply request not found"); 
DEALTOCATE_ROCB (,RQCBY; 


| 
| 
| 
, es | 
; Finish processing. Decide what to do based on the message code. | 
iF (MCB = .ROCB CROCB_L_MCB)) NEQ 0 


: 
a 
= 


| 
| 
ILE (.BUFFER 
DEALCOCATE_ROQCB (.ROQCBY | 
3 | 
' J 
! Search through the requests queued to this OCD for the 
: specified request. This implies that an operator may 
! 
i 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


EER 
RRLLLRRESLERRELERELELERERSEEES 


PPA ees 
SSRNSUTUN 2 SSRNEREGN IS SON Ms 


8 a aa 


: $63 61 THEN 

3 «6 ¢ BEGIN 

3 ret : mint ive -MCB CMCB_L_MSGID) OF 

; is? i84 4 P6PCS_RasTPEND) : BEGIN 

3 rs 467 & ! Log the message. Set the intrest mask so that 

; rea re 2 the message is logged properly. 

; 47@ 0 4 RQCB CROCB_L_ATTNMASK1] = .ROST [ROCB_L_ATTNMASK1]; 
; 47 71 & RQCB CRQCB_L_ATTNMASK2) = .RQST CROCB_L_ATTNMASK2]; 
> 474 i 4 LOG_MESSAGE T.RQCB); 

; 475 7 END; 

3 $78 474 

3; 47 475 COPC$_RQSTCAN 

; 478 0476 OPC$-ROSTABORT, 

; 479 7 OPCS_INITAPE 

; 480 ot OPC$_BLANKTAPE 

: 481 79 4 OPCS-ROSTCMPLTE) : BEGIN 

; 48 0480 4 ! 

; 48 0481 4 ' The request must be removed from the OCD's List, 
; 6484 Bees 4 !' and the operators must be notified. Set the 

; 485 04835 4 ! replier's interest mask so that the interested 

3 one 0484 4 ' operators will be notified. 

; 48 0485 4 ! 

; 488 0486 4 RQCB CROCB_L_ATTNMASK1] = .RQST CROCB_L_ATTNMASK1]; 
; 489 487 & RQCB CRQCB_L_ATTNMASK2] = .RQST CRQCB_L_ATINMASK2); 
; 490 0488 4 REMQUE (.ROST, RQST); 

: 491 0489 4 oc QsT CROCB_L bcp]; 

; 49 0490 4 oco Coco W_RQSTCOONT = .O0CD COCD_W_RQSTCOUNT] - 1; 
; 49 0491 4 DEALLOCATE-RQCB (.RQST); 

: 694 be 3g 4 LOG_MESSAGE (.RQCB); 

; 495 0493 4 NOTTFY_LISTED_OPERATORS (.RQCB); 

; 199 0495 COTHERWISE] : DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘unexpected status for reply"); 
; 498 oh] TES; 

3 $38 oh END 

: 501 199 ! What, no MCB on the message! Bogus 

3 206 500 ! 

; 50 0501 ELSE 

3 308 8208 DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘no MCB on reply message'); 

3 3s ape DEALLOCATE_ROQCB (.RQCB); 

: 508 208 RETURN; 

; 509 50 END; ! End of REPLY_CLM_HANDLER 


-PSECT SPLITS,NOWRT,NOEXE,2 
P.AAB: .ASCII \CLM__x mismatch\<0> 
P.AAA: .LONG 17694735 

ADDRESS P.AAB 
P.AAD: .ASCII \repiy operator not found\ 


68 63 74 61 6D 73 69 6D 20 78 SF SF 4D 4C 


43 000 

60 OF 
oi8 68 F 10 
0000 99" 14 
20 72 6F 74 61 72 65 70 6F 20 79 6C 70 6 0018 


5 ae a 


7% 61 3 ie} 20 65 74 $3 § 


00006 


00006 


70 


6C 


00006 
6C 


6 20 74 73 65 75 71 65 7 
00 & a 9 


79 6C 70 65 72 20 3 of 29 4 


ge a 


% 8 


me 


00006 


08 
02 


0000° 
4004 


00006 
04 


6C 
6C 


[=] 
oO 


oo OTN OG 


oooo 


rom > sure 


— 
wn 


OOooooooooo 
CSoooooooecoao 
Oooooceocoocoo 

3 

O09 FOwm> OOF 


~™ 
ww 


Ww 


OVD ODD "W—Ornoymnn 
bad 


coot"owomn 


-.omn 
—*ow 
CSODDODDDODDODODODOOOOOOOOOOOOO 
SOSSCSOSOSOSOSS 
Pee 
~~ 
oe 


yee 4 4 
DIAS 
BOLonrowonws> 
wn 
oe 


SOOOCOCSCCOOOCOOooCoOoOoooooSo 


MOVPE FPMCOPYPWUUVIF SPPLOVOVMFPP OF OUOCO—lOOrron 
oa 
ad 


MFUWUIDNVWON & LOMMMONMWMM MONOM"O NOVO 


onmooo—-9°0—-0—-"0 0009 
owmo oOo OW "Wi MOoOo 
Srvoo~ 


oooo 
Ses 


Soria Q49563  YMCDD SASSER aS. O-782 


os bea 

ole request not found\<0> 
So a 

\unexpected status for reply\<0> 
17694747 


“ADDRESS P.AA 


H 
\no MCB on reply message\<0> 
17694743 


«ADDRESS P.AAJ 


ASCID_INVALIDRQCB 
SCODES,NOWRT,2 


REPLY CLM_HANDLER, Save R2,R3,R4,R5,R6 
D COG. FILE, R6 


#*M<R2,SP> 
#2, LUSMSG_ CONV_CLM_RQCB 


AstiD, INVAL IDRQCB 
ra 
pune LOG_FILE 


OPER_RQCB 
RQCB, R 


eee EI F IND_OPERATOR 
p:AAC 
OPER A RQCB, RO 

oto 
ZRERDD RQST 
OCD), RO 
ST, RO 
100(R3), 112(RQST) 
(Rast), RQST 


; (RQST), MCB 
aces {08(RQST) 


ND_REPLY 
a, "SEND REPLY 


BeBe Se Be Se Se Se Be Se Se Se Be Se Be Be 


Se ———$—— 


; Routine Size: 289 bytes, Routine Base: S$CODE$ + 0214 
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OPC OMRPLY 16-Sep-19 AX-11 Bliss-32 V4.0-74 Page 15 OPC 
vee 1eaeb= 138% 93:83:88 FANT ON BhiSS 53S AME O"248. ve 3 vod 

nan) 7$: MOVAB 60(9CD) RO : 0450 ; 

38 32 oj Re CMPL , RO : ; 

F BNEQ : ; 

0090" CF OF PUSHAB P.AAE : 0453 ; 

4 AC DD A 8S: PUSHL 8 FFER_DESC ; : 

66 FB CALLS , DUMP_LOG_FILE ; : 

pp PUSHL +o + 0454 ; 

00 : 1 0009 BRW 16$ : ; 

55 6C A’ p 95 9$: ROVE (R3), MCB + 0460 : 

50 2c «AS OO 98 MOVL  § 44(MCB), RO + 0463 F 

00058021 &F 30 » 9 OF CMPL =o #366481 + 0465 : 

Mg BNEG 108 : F 

5c aS 5¢ Ad 70 00 VQ  92(RQST), 92(R3) : 0470 : 

53 DD OO0AD PUSHL R + 0472 ; 

00006 CF 01 Fe OOAF CALLS #1, LOG_MESSAGE ; ; 

$3 11 00084 RB 15$ : 0463 : 

0005801C 8F 0 D4 00B6 10$ CMPL RO, #360476 + 0475 ; 

¢4 13 00080 Bea. «=s«éa:'18 : ; 

00058029 8F 0 D1 000BF CMPL = RO, - #360489 : ; 

18 13 000C¢ BEQL =s«a118 : : 

00058084 8F 50 01 000C¢ CMPL RO, #360580 : ; 

12 13 OOOCF BEQL =s«a8 : : 

000581D3—s BF 50 01 00001 CMPL = RO,- #360915 : : 

9 13 00008 BeQL «=s«éd'18 : F 

000S81E3 BF 0 pi OODA CMPL RO, #360931 ; F 

26 12 000E1 BNEQ 128 : : 

5c A 5c A2 70 OOOE3 11$: MOVQ 92(RQST), 92(R3) + 0486 : 

52 62 OF 000E8 REMQUE (RQST) : 0488 3 

54 4 A2 00 000EB MOVL 36 (Rast), OCD + 0489 : 

A AG B? OOOEF DECW 8(OCD) : 0490 3 

52 DD 000F2 PUSHL RQST > 0491 ; 

0000G CF 01 FB OO0OF4 CALLS #1, DEALLOCATE_RQCB 3 3 

GE DD OO0FS PUSHL  ROQCB + 0492 ; 

00006 CF 01 FB O00F CALLS #1, LOG_MESSAGE ; 3 

6E DD 001 PUSHL  RQCB + 0493 : 

00006 CF 01 FB 010¢ CALLS #1, NOTIFY_LISTED_OPERATORS : 3 

10 11 001 BRB 15$ + 0463 : 

0000° cr 9F 00109 12$:  PUSHAB P.AAG > 0495 : 

4 11 001 BRB 14$ ; : 

0000" CF 9F OO10F 13$: § PUSHAB P.AAI + 0502 3 

04 AC DD 113 14$: — PUSHL FFER_DESC : 3 

56 02 FB 00116 CALLS DUAP_LOG_FILE : : 

6F DD g119 15$:  PUSHL 43 > 0504 3 

00006 CF FB 118 16$: CALLS #1, DEALLOCATE_ROCB F : 

04 0012 RET : 0507 : 


———— 


18-56 309-138 9}: AX-11 Ot ieee -32 V4.0-74 
14-Sep-1984 12: OPCOM.SRCJOPCOMRPLY.B32;1 
11 508 1 END ! End of OPCOMRPLY 
12 $305 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 821 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, potted b Eg batt fs 
SPLITS 156 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eveseee = Symbols oceceene Pages Processing 
File Total Loaded Percent Mapped Time 
RTE SYSLIBILIB.L32;1 18619 14 0 1000 00:01.9 
~$255$DUA28 : LOPCOM. OBJ OPCOML1B.L32; 1 633 31 4 43 00:01.0 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:OPCOMRPLY/OBJ=OBJ$:OPCOMRPLY MSRC$:OPCOMRPLY/UPDATE=(ENH$:OPCOMRPLY) 
; Size: 821 code + 156 data bytes 
Run Time: 00:17.5 


Elapsed Time: 00:46.5 
Lines/CPU Min: 1741 
ponenee/N-ares 15075 
conecy Used: 168 pages 
Compilation Complete 


<= 
SO 
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